home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / libs / Identify.lha / Identify / include / Pascal / identify.lib
Text File  |  1997-04-13  |  548b  |  22 lines
  1. {$if not def IDENTIFY_LIB} CONST IDENTIFY_LIB=1;
  2.  
  3. {
  4. ** identify_protos.h
  5. **
  6. ** (C) 1996-97 Richard Körber -- All Rights Reserved
  7. }
  8.  
  9. {$if not def UTILITY_TAGITEM_H;incl "utility/tagitem.h";endif}
  10.  
  11. VAR IdentifyBase : Ptr;
  12.  
  13. LIBRARY IdentifyBase :
  14.   -30 : FUNCTION IdExpansion(a0:p_TagItem) : Long;
  15.   -36 : FUNCTION IdHardware(d0:Long;a0:p_TagItem) : Str;
  16.   -42 : FUNCTION IdAlert(d0:Long;a0:p_TagItem) : Long;
  17.   -48 : FUNCTION IdFunction(a0:Str;d0:Long;a1:p_TagItem) : Long;
  18.   -54 : FUNCTION IdHardwareNum(d0:Long;a0:p_TagItem) : Long;
  19. END;
  20.  
  21. {$endif}
  22.